0 GOSUB 1000
1 POKE53265,27
2 PRINT:INPUT"NAME OF FILE";N$
4 POKE53272,22
5 POKE 53281,0:POKE53280,0:PRINT""
10 PRINT"[147][202]AMES [208]AUL [193]MYX":FORX=1TO1500:NEXTX
15 PRINT"[145][155][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
20 PRINT"[145][152][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
25 PRINT"[145][151][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
30 PRINT"[147]":FORX=1TO1500:NEXT X
35 PRINT"[147][208]RESENTS":FORX=1TO1500:NEXTX
40 PRINT"[145][155][208]RESENTS":FORX=1TO40:NEXTX
45 PRINT"[145][152][208]RESENTS":FORX=1TO40:NEXTX
50 PRINT"[145][151][208]RESENTS":FORX=1TO40:NEXTX
55 PRINT"[147]":FORX=1TO1500:NEXTX
60 PRINT"[147][196]OSIT SEQ FILE PROGRAM":FORX=1TO1500:NEXTX
65 PRINT"[155][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
70 PRINT"[152][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
75 PRINT"[151][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
80 PRINT"[147]":FORX=1TO1500:NEXTX:POKE53281,6:POKE53280,14:POKE53272,23
105 PRINT"[147]ALL YOU HAVE TO DO IS PUSH KEYS";
120 PRINT"PRESS ANY KEY"
125 GET A$:IF A$=""THEN GOTO 125
130 PRINT"[147]TO STOP HIT RETURN ON A BLANK LINE.    TO ENTER WHAT YOU TYPED P";
131 PRINT"RESS RETURN."
135 PRINT"PRESS ANY KEY"
140 GET A$:IF A$=""THEN GOTO 140
145 PRINT"[147]";
150 OPEN 5,8,5,"O:"+N$+",S,W"
154 L$=""
155 GETA$:IFA$=CHR$(13)ANDL$=""THENGOTO185
156 IFA$=""THENGOTO155
160 IFA$=CHR$(13)ANDL$<>""THENGOTO190
165 IFLEN(L$)=39THENGOTO195
170 IFA$=""ORA$="[147]"ORA$="[145]"ORA$=""ORA$=""ORA$="[157]"ORA$="[133]"ORA$="[137]"THENGOTO155
175 IFA$="[134]"ORA$="[138]"ORA$="[135]"ORA$="[139]"ORA$="[136]"ORA$="[140]"THENGOTO155
176 IFA$="[144]"ORA$=""ORA$=""ORA$="[159]"ORA$="[156]"ORA$=""ORA$=""ORA$="[158]"THENGOTO155
177 IFA$=""ORA$="[146]"ORA$="[129]"ORA$="[149]"ORA$="[150]"ORA$="[151]"ORA$="[152]"ORA$="[153]"THENGOTO155
178 IFA$="[154]"ORA$="[155]"THENGOTO155
179 IFA$=CHR$(20)ANDLEN(L$)=0THENGOTO155
180 IFA$=CHR$(20)THENL$=LEFT$(L$,LEN(L$)-1):PRINTA$;:GOTO155
181 PRINTA$;:L$=L$+A$:GOTO155
185 CLOSE5:PRINTCHR$(9):GOTO2000
190 PRINT#5,L$:L$="":PRINTCHR$(13);:GOTO155
195 GETA$:IFA$=CHR$(20)THENL$=LEFT$(L$,LEN(L$)-1):PRINTA$;:GOTO155
200 IFA$=CHR$(13)THENPRINT#5,L$:L$="":PRINT"";:GOTO155
205 GOTO 195
1000 PRINT"";
1001 FORI=1TO999
1002 PRINT" ";
1003 NEXT I
1004 RETURN
2000 PRINT"INSERT DOSIT DISK IN DRIVE AND PRESS A KEY"
2001 GETA$:IFA$=""THEN2001
2002 LOAD"BOOT",8,1